The annual average % contribution to the total annual average swe of all 6 mountain ranges:
ch_wk_graph <- graph_with_wateryear(ch_weekly, "Chuska", type = geom_col)
ch_wk_graph
- Black Mesa to Mt. Powell, Black Mesa to Defiance Plateau and Defiance Plateau and Mt Powell all have the highest correlations between each other - Least correlated are Black Mesa and Navajo Mt, Navajo Mt and Mt Powell, Navajo Mt and Defiance Plateau
Pearson’s Correlation R squared:
Chuska vs Black Mesa: 0.46
Carrizo vs Chuska: 0.63
Carrizo vs Black Mesa: 0.73
Chuska vs Black Mesa R squared: 0.4634808
Chuska vs Carrizo R squared: 0.631619
Black Mesa vs Carrizo R squared: 0.7250093
## Error in .f(.x[[i]], ...): object 'water_year' not found
## Error in eval(lhs, parent, parent): object 'ch_sca_month' not found
## Error in eval(lhs, parent, parent): object 'ch_sca_month' not found
SCA Anomaly was scaled down by a factor of 10 to improve analysis
## Error in as.data.frame(y): object 'ch_sca_month' not found
## Error in eval(lhs, parent, parent): object 'chuska_swe_sca' not found
## function (x, y, ...)
## UseMethod("plot")
## <bytecode: 0x7f8918cb0f88>
## <environment: namespace:graphics>